home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / vm / ps-package-defs.scm < prev    next >
Text File  |  1995-10-13  |  857b  |  29 lines
  1.  
  2. (define-structures ((vm-utilities vm-utilities-interface))
  3.   (open pre-scheme)
  4.   (files vm-utilities)
  5.   (begin
  6.     (define-syntax assert
  7.       (lambda (exp rename compare)
  8.         0))
  9.     ))
  10.  
  11. (define-structures ((external external-interface))
  12.   (open pre-scheme)
  13.   (begin
  14.     (define extended-vm (external (=> (int32 int32) int32) #f))
  15.     (define lookup-external-name (external (=> (int32 int32) boolean) #f))
  16.     (define ps-schedule-interrupt (external (=> (int32) int32) #f))
  17.     (define ps-real-time (external (=> () int32) #f))
  18.     (define ps-run-time (external (=> () int32) #f))
  19.     (define ps-ticks-per-second (external (=> () int32) #f))))
  20.    
  21. ; The number of usable bits in a small integer.
  22.  
  23. (define-structures ((system-spec (export useful-bits-per-word)))
  24.   (open pre-scheme)
  25.   (begin
  26.     (define useful-bits-per-word 32)   ; when compiled
  27.     ))
  28.  
  29.